BBS in a Box 11/AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso/Files/Publish/J-L/LWIIG.apd.sit/LaserWriter IIg.apd

Aldus Printer Driver | 1992-02-15 | 9.6 KB | 228 lines | [TEXT/ALD4]

@Comment: "LaserWriter IIg.apd" for Apple LaserWriter IIg printer.
@Comment: Aldus Printer Description (APD) file
@Comment:     $Revision:   1.0  $
@Comment:     $Date:   25 Dec 1991 15:00:42  $
@Comment: This APD produced for use with Aldus PageMaker 4.01 or earlier.
@Comment: Keyword values are currently limited to 255 characters in length.
@Comment: If using ATM™ the postscript font files must remain in the System Folder
@Comment: not the extension folder, for this APD to find them.

@FormatVersion: " "
@Product: "(LaserWriter IIg)"
@PSVersion: " "
@NickName: " "
@FileVersion: " "
@LanguageVersion: English
@PSRevision: " "

@DefaultResolution: "300 300"
@Resolution: "300 300"
@?Resolution: "
save
  initgraphics
  0 0 moveto currentpoint matrix defaultmatrix transform
  0 72 lineto currentpoint matrix defaultmatrix transform
  3 -1 roll sub dup mul
  3 1 roll exch sub dup mul
  add sqrt round cvi
  (          ) cvs print (dpi) = flush
restore
"
@End

@AllowComments: "true"
@AllowVMQuery: "true"

@Comment:  "FreeVM" value is equivalent to vmstatus "maximum" minus "used" values
@Comment: Limit VM when printing to file, to not exceed save-level limit for downloaded fonts:
@FreeVM: "350000"
@Comment: Actual value is @FreeVM: "443000"
@WorkingMem: "25000"
@AldusHeaderMem: "34000"
@Comment: Example of declaration of a downloadable font's memory requirement:
@Comment: @FontMem "Benjo-Light": "82600"

@Comment: PatchFile is sent right after %%EndComments, AldusPatchFile right before %%EndSetup.
@PatchFile: "userdict /AldusDict known {(A previous version PageMaker header is loaded.) = flush} if"
@AldusPatchFile: ""
@ExitServer: "serverdict begin exitserver "
@Password: "0"

@DefaultScreenFreq: "106"
@DefaultScreenAngle: "45"
@DefaultScreenProc: "{abs exch abs 2 copy add 1 gt{1 sub dup mul exch 1 sub dup mul add 1 sub} {dup mul exch dup mul add 1 exch sub} ifelse }"

@ScreenFreq: ""
@ScreenAngle: ""
@ScreenProc: ""

@InvertScreenProc: "{dup mul exch dup mul add 1 sub}"
@Transfer: ""
@InvertTransfer: "{1 exch sub}"

@NormalizedTransfer: "{
mark
1.0 1.0 .98 .86 .76 .64 .54 .45 .36 .24 .11 .0
counttomark dup 3 add -1 roll exch
2 sub mul dup floor cvi
dup 3 1 roll sub
exch dup
3 add index exch 2 add index dup
4 1 roll
sub mul add
counttomark 1 add 1 roll
cleartomark
} bind"
@End

@InvertNormalizedTransfer: "{
mark
.0 .0 .11 .24 .36 .45 .54 .64 .76 .86 .98 1.0
counttomark dup 3 add -1 roll exch
2 sub mul dup floor cvi
dup 3 1 roll sub
exch dup
3 add index exch 2 add index dup
4 1 roll
sub mul add
counttomark 1 add 1 roll
cleartomark
} bind"
@End

@Comment: Assumes a file system.
@?FontList: "save /SC 100 string def FontDirectory{pop = flush}forall
(fonts/*){dup length 6 sub 6 exch getinterval = flush}SC filenameforall(*)= flush restore"
@End
@?FontQuery: "FontDirectory exch known {1}{0} ifelse = flush"
@Comment: If 11 or more saves, VM query makes memory look full, PM will flush fonts.
@?VMStatus: "vmstatus 3 -1 roll dup 10 gt
{3 1 roll exch pop dup} {3 1 roll} ifelse == == == flush"
@End
@?OutputOrder: "pagestackorder {(facedown)}{(faceup)} ifelse = flush"
@Comment: Paper tray query compares returned value with selected PageSize,
@Comment: up to length of returned value only: i.e, "A4" matches "A4small"
@?PaperTray: "mark () statusdict /printerstatus known {
userdict /T statusdict /printerstatus get exec 16#07E and put
 T 2 eq {(A4)} if T 8 eq {(Letter)} if T 24 eq {(Legal)} if} if
 = flush cleartomark"
@End

@Comment: PageSize options appear in the "Paper" list box in the Printer-specific dialog.
@DefaultPageSize: "legal"
@PageSize A4: "a4"
@PageSize A4small: "a4small"
@PageSize A4Transverse: "a4sideways"
@PageSize B5: "b5"
@PageSize Legal: "legal"
@PageSize Letter: "letter"
@PageSize Lettersmall: "lettersmall"


@Comment: Use the "@?PaperTray" query instead of "_tray" commands to verify correct tray.

@Comment: PageRegion gives the printable area of each paper option.
@PageRegion A4: "17.28 21.96 578.16 819.72"
@PageRegion A4small: "28.80 30.24 566.64 811.44"
@PageRegion A4Transverse: "17.28 21.96 819.72 578.16"
@PageRegion B5: "17.28 2.88 481.68 705.60"
@PageRegion Legal: "18 7.92 594 1000.08"
@PageRegion Letter: "18 7.92 594 784.08"
@PageRegion Lettersmall: "29.52 30.24 582.48 761.76"

@Comment: PaperDimension gives the total paper size of each option.
@PaperDimension A4: "595.28 841.89"
@PaperDimension A4small: "595.28 841.89"
@PaperDimension A4Transverse: "841.89 595.28"
@PaperDimension B5: "498.90 708.66"
@PaperDimension Legal: "612 1008"
@PaperDimension Letter: "612 792"
@PaperDimension Lettersmall: "612 792"

@DefaultOutputOrder: "facedown"

@ManualFeed true: "statusdict begin /manualfeed true def end"
@ManualFeed false: "statusdict begin /manualfeed false def end"

@DefaultFont: "Courier"
@Font "AvantGarde-Book": "Standard" "(001.000)"
@Font "AvantGarde-BookOblique": "Standard" "(001.000)"
@Font "AvantGarde-Demi": "Standard" "(001.000)"
@Font "AvantGarde-DemiOblique": "Standard" "(001.000)"
@Font "Bookman-Demi": "Standard" "(001.000)"
@Font "Bookman-DemiItalic": "Standard" "(001.000)"
@Font "Bookman-Light": "Standard" "(001.000)"
@Font "Bookman-LightItalic": "Standard" "(001.000)"
@Font "Courier": "Standard" "(001.000)"
@Font "Courier-Bold": "Standard" "(001.000)"
@Font "Courier-BoldOblique": "Standard" "(001.000)"
@Font "Courier-Oblique": "Standard" "(001.000)"
@Font "Helvetica": "Standard" "(001.000)"
@Font "Helvetica-Bold": "Standard" "(001.000)"
@Font "Helvetica-BoldOblique": "Standard" "(001.000)"
@Font "Helvetica-Narrow": "Standard" "(001.000)"
@Font "Helvetica-Narrow-Bold": "Standard" "(001.000)"
@Font "Helvetica-Narrow-BoldOblique": "Standard" "(001.000)"
@Font "Helvetica-Narrow-Oblique": "Standard" "(001.000)"
@Font "Helvetica-Oblique": "Standard" "(001.000)"
@Font "NewCenturySchlbk-Bold": "Standard" "(001.000)"
@Font "NewCenturySchlbk-BoldItalic": "Standard" "(001.000)"
@Font "NewCenturySchlbk-Italic": "Standard" "(001.000)"
@Font "NewCenturySchlbk-Roman": "Standard" "(001.000)"
@Font "Palatino-Bold": "Standard" "(001.000)"
@Font "Palatino-BoldItalic": "Standard" "(001.000)"
@Font "Palatino-Italic": "Standard" "(001.000)"
@Font "Palatino-Roman": "Standard" "(001.000)"
@Font "Symbol": "Standard" "(001.000)"
@Font "Times-Bold": "Standard" "(001.000)"
@Font "Times-BoldItalic": "Standard" "(001.000)"
@Font "Times-Italic": "Standard" "(001.000)"
@Font "Times-Roman": "Standard" "(001.000)"
@Font "ZapfChancery-MediumItalic": "Standard" "(001.000)"

@Comment: The order of occurrence determines the order of parsing; put general messages last.
@Comment: PrinterWarning beeps and displays the translation string in the status line.

@PrinterWarning    "%%[ PrinterError: paper \where\ misfeed\lost\ ]%%" : "Printer “^2” needs attention: paper jam."
@PrinterWarning    "%%[ PrinterError: \Reason\ ]%%" : "Printer “^2” needs attention: \Reason\."

@PrinterWarning    "\s\status: PrinterError: paper \where\ misfeed\lost\" : "Printer “^2” needs attention: paper jam."
@PrinterWarning    "\s\status: PrinterError: \Reason\; source: \source\" : "Printer “^2” needs attention: \Reason\."

@ParameterReason "no paper tray" : "no paper tray"
@ParameterReason "out of paper" : "out of paper"
@ParameterReason "cover open" : "cover open"
@ParameterReason "warming up" : "warming up"
@ParameterReason "service call" : "service call"
@ParameterReason "resetting printer" : "resetting printer"
@ParameterReason "cover open" : "cover open"
@ParameterReason "timeout, clearing printer" : "timeout"
@ParameterReason "timeout" : "timeout"
@ParameterReason "manual feed timeout" : "manual feed timeout"
@ParameterReason "no toner cartridge" : "no toner cartridge"

@Comment: PrinterMessage displays the translation string in the status line.
@PrinterMessage "job: \username\; document: \jobname\; status: \Status\; source: \source\" : "User: \username\;  document: \jobname\;  status: \Status\."
@PrinterMessage "job: \jobname\; status: \Status\; source: \source\" : "Document: \jobname\;  status: \Status\."
@PrinterMessage "status: \Status\; source: \source\" : "Status: \Status\."
@PrinterMessage "\Font1\ not found, using \Font2\" : "Font \Font1\ is not found on ^2, substituting \Font2\"

@ParameterStatus "idle" : "idle"
@ParameterStatus "busy" : "processing job"
@ParameterStatus "waiting" : "preparing data"
@ParameterStatus "printing" : "printing"

@Comment: a null translation string causes no message to display.
@PrinterMessage    "%%[ exitserver: permanent state may be changed ]%%" : ""
@PrinterMessage    "%%[ Flushing: rest of job (to end-of-file) will be ignored ]%%" : ""

@Comment: Parameter substitution of printer name for "^2" is not allowed in "...Alert" messages!
@Comment: PrinterWarningAlert displays translation string in a warning-alert box and continues.
@PrinterWarningAlert "A previous version PageMaker header is loaded." : "Printer performance may improve if you do not print with PageMaker version 1.2 on this net."

@Comment: PrinterErrorAlert displays translation string in a stop-alert box and aborts printing.
@PrinterErrorAlert    "%%[ Error: \fonterror\; OffendingCommand: fontdownload ]%%" : "The font being downloaded has not been initialized for this printer."
@PrinterErrorAlert    "%%[ Error: VMerror; OffendingCommand: \operator\ ]%%" : "Printer memory exceeded; turn printer off and on, or print smaller sections of the document."
@PrinterErrorAlert    "%%[ Error: timeout; OffendingCommand: \operator\ ]%%" : "The printer had to wait too long, and went on to the next job; try again."
@PrinterErrorAlert    "%%[ Error: \error\; OffendingCommand: \operator\ ]%%" : "Cannot print due to PostScript error: “\error\,” in command: “\operator\.”"
@PrinterErrorAlert    "Fatal system error \error\" : "The printer has encountered an error. Simplify your document or try again."